home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / OBJECT.P < prev    next >
Text File  |  1990-09-13  |  2KB  |  98 lines
  1. temp <- <primitive 110 21 >
  2. <primitive 112 temp 1        " shallowCopy " \
  3.     #( #[ 32 250 1 4 113 33 80 199 247 4 32 243 248 26 242 \
  4.  32 164 160 114 81 33 178 225 3 11 34 35 32 35 250 \
  5.  2 111 250 3 112 243 179 242 34 243 242 245] \
  6.     #(  ) ) >
  7.  
  8. <primitive 112 temp 2        " respondsTo: " \
  9.     #( #[ 32 164 33 11 41 243 245] \
  10.     #(  ) ) >
  11.  
  12. <primitive 112 temp 3        " printString " \
  13.     #( #[ 32 10 16 243 245] \
  14.     #(  ) ) >
  15.  
  16. <primitive 112 temp 4        " print " \
  17.     #( #[ 32 169 250 1 121 242 245] \
  18.     #(  ) ) >
  19.  
  20. <primitive 112 temp 5        " notNil " \
  21.     #( #[ 91 243 245] \
  22.     #(  ) ) >
  23.  
  24. <primitive 112 temp 6        " next " \
  25.     #( #[ 93 243 245] \
  26.     #(  ) ) >
  27.  
  28. <primitive 112 temp 7        " isNil " \
  29.     #( #[ 92 243 245] \
  30.     #(  ) ) >
  31.  
  32. <primitive 112 temp 8        " isMemberOf: " \
  33.     #( #[ 33 32 164 181 243 245] \
  34.     #(  ) ) >
  35.  
  36. <primitive 112 temp 9        " isKindOf: " \
  37.     #( #[ 32 164 114 34 162 247 16 34 33 181 247 2 91 243 242 \
  38.  34 10 46 241 114 242 249 20 242 92 243 245] \
  39.     #(  ) ) >
  40.  
  41. <primitive 112 temp 10        " first " \
  42.     #( #[ 32 243 245] \
  43.     #(  ) ) >
  44.  
  45. <primitive 112 temp 11        " error: " \
  46.     #( #[ 33 32 250 2 122 242 245] \
  47.     #(  ) ) >
  48.  
  49. <primitive 112 temp 12        " do: " \
  50.     #( #[ 32 166 114 34 162 247 11 33 34 180 242 32 167 241 114 \
  51.  242 249 15 243 245] \
  52.     #(  ) ) >
  53.  
  54. <primitive 112 temp 13        " deepCopy " \
  55.     #( #[ 32 250 1 4 113 33 80 199 247 4 32 243 248 28 242 \
  56.  32 164 160 114 81 33 178 225 3 13 34 35 32 35 250 \
  57.  2 111 10 20 250 3 112 243 179 242 34 243 242 245] \
  58.     #(  ) ) >
  59.  
  60. <primitive 112 temp 14        " copy " \
  61.     #( #[ 32 10 42 243 245] \
  62.     #(  ) ) >
  63.  
  64. <primitive 112 temp 15        " class " \
  65.     #( #[ 32 250 1 1 243 245] \
  66.     #(  ) ) >
  67.  
  68. <primitive 112 temp 16        " asSymbol " \
  69.     #( #[ 32 10 16 10 17 243 245] \
  70.     #(  ) ) >
  71.  
  72. <primitive 112 temp 17        " asString " \
  73.     #( #[ 32 164 169 243 245] \
  74.     #(  ) ) >
  75.  
  76. <primitive 112 temp 18        " ~= " \
  77.     #( #[ 32 33 201 172 243 245] \
  78.     #(  ) ) >
  79.  
  80. <primitive 112 temp 19        " = " \
  81.     #( #[ 32 33 181 243 245] \
  82.     #(  ) ) >
  83.  
  84. <primitive 112 temp 20        " ~~ " \
  85.     #( #[ 32 33 181 172 243 245] \
  86.     #(  ) ) >
  87.  
  88. <primitive 112 temp 21        " == " \
  89.     #( #[ 32 33 250 2 7 243 245] \
  90.     #(  ) ) >
  91.  
  92. <primitive 98 #Object \
  93.     <primitive 97 #Object #Object #\smalltlk\prelude\object.st \
  94.     #(  ) \
  95.     #( #shallowCopy #respondsTo: #printString #print #notNil #next #isNil #isMemberOf: #isKindOf: #first #error: #do: #deepCopy #copy #class #asSymbol #asString #~= #= #~~ #==  ) \
  96.     temp 4 7 > >
  97.  
  98.